home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TK-USERS.ZIP / USERS.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1996-04-28  |  2.7 KB  |  175 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     Declare  Procedure PROC001()
  26.     Declare  Procedure PROC002()
  27.     Declare  Procedure PROC003()
  28.     Declare  Procedure PROC004()
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     PROC004()
  33.     End
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Procedure PROC004()
  38.  
  39.     PROC001()
  40.     INTEGER001 = 1
  41.     GetAltUser 1
  42.     Color 3
  43.     While (U_RecNum(U_Name()) == INTEGER001) Do
  44.         PROC003()
  45.         Inc INTEGER001
  46.         GetAltUser INTEGER001
  47.     EndWhile
  48.     PROC002()
  49.  
  50.     EndProc
  51.  
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     Procedure PROC003()
  56.  
  57.     String   STRING002
  58.     String   STRING003
  59.     String   STRING004
  60.     String   STRING005
  61.  
  62.     If (U_Sec == 0) U_City = "@X08BLACK LISTED"
  63.     If (Len(U_City) > 20) U_City = Mid(U_City, 1, 20)
  64.     STRING002 = String(INTEGER001)
  65.     If (Len(STRING002) == 1) STRING002 = "  " + STRING002
  66.     If (Len(STRING002) == 2) STRING002 = " " + STRING002
  67.     STRING004 = String(U_Bul() / 1000)
  68.     STRING003 = String(U_Bdl() / 1000)
  69.     If (Len(STRING003) == 6) STRING003 = Mid(STRING003, 1, 3) + "," + Mid(STRING003, 4, 3)
  70.     If (Len(STRING003) == 5) STRING003 = Mid(STRING003, 1, 2) + "," + Mid(STRING003, 3, 3)
  71.     If (Len(STRING003) == 4) STRING003 = Mid(STRING003, 1, 1) + "," + Mid(STRING003, 2, 3)
  72.     If (Len(STRING004) == 6) STRING004 = Mid(STRING004, 1, 3) + "," + Mid(STRING004, 4, 3)
  73.     If (Len(STRING004) == 5) STRING004 = Mid(STRING004, 1, 2) + "," + Mid(STRING004, 3, 3)
  74.     If (Len(STRING004) == 4) STRING004 = Mid(STRING004, 1, 1) + "," + Mid(STRING004, 2, 3)
  75.     While (Len(STRING003) < 9) Do
  76.         STRING003 = " " + STRING003
  77.     EndWhile
  78.     While (Len(STRING004) < 9) Do
  79.         STRING004 = " " + STRING004
  80.     EndWhile
  81.     STRING005 = String(U_Sec)
  82.     While (Len(STRING005) < 3) Do
  83.         STRING005 = " " + STRING005
  84.     EndWhile
  85.     PrintLn "@X0F " + STRING002 + "@POS:6@@X08│ @X0B" + U_Name() + "@POS:28@@X08│ @X0A" + U_City + "@POS:51@@X08│@X05" + STRING004 + "@X0DK@POS:62@@X08│@X04" + STRING003 + "@X0CK@POS:73@@X08│ @X09" + STRING005
  86.  
  87.     EndProc
  88.  
  89.  
  90. ;------------------------------------------------------------------------------
  91.  
  92.     Procedure PROC001()
  93.  
  94.     PrintLn "@CLS@@X0F──@X07──@X08───────────────────────────────────────────────────────────────────────@X07──@X0F──"
  95.     PrintLn "@X0F           Handle                Location            upped     leeched    aXs"
  96.     PrintLn "@X0F─@X07─@X08──@X07─@X0F┬@X07─@X08───────────────────@X07─@X0F┬@X07─@X08────────────────────@X07─@X0F┬@X07─@X08────────@X07─@X0F┬@X07─@X08────────@X07─@X0F┬@X07─@X08───@X07─@X0F─"
  97.  
  98.     EndProc
  99.  
  100.  
  101. ;------------------------------------------------------------------------------
  102.  
  103.     Procedure PROC002()
  104.  
  105.     String   STRING006
  106.  
  107.     PrintLn "@X0F─@X07─@X08──@X07─@X0F┴@X07─@X08───────────────────@X07─@X0F┴@X07─@X08────────────────────@X07─@X0F┴@X07─@X08────────@X07─@X0F┴@X07─@X08────────@X07─@X0F┴@X07─@X08───@X07─@X0F─"
  108.     Print "                                                        THe BLaCK aSSaSSiN '96"
  109.     While (STRING006 == "") Do
  110.         STRING006 = ""
  111.         STRING006 = Inkey()
  112.     EndWhile
  113.  
  114.     EndProc
  115.  
  116.  
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Usage report (before postprocessing)
  120. ;
  121. ; ■ Statements used :
  122. ;
  123. ;    1       End
  124. ;    1       Color 
  125. ;    10      Goto 
  126. ;    20      Let 
  127. ;    1       Print 
  128. ;    5       PrintLn 
  129. ;    15      If 
  130. ;    1       Inc 
  131. ;    2       GetAltUser 
  132. ;    4       EndProc
  133. ;
  134. ;
  135. ; ■ Functions used :
  136. ;
  137. ;    2       /
  138. ;    28      +
  139. ;    11      ==
  140. ;    3       <
  141. ;    1       >
  142. ;    5       !
  143. ;    12      Len(
  144. ;    13      Mid()
  145. ;    2       U_Name()
  146. ;    1       U_Bdl()
  147. ;    1       U_Bul()
  148. ;    1       Inkey()
  149. ;    4       String()
  150. ;    1       U_RecNum()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : R
  155. ;
  156. ; R - Read user ■ 5
  157. ;     User records are read, this may signify that someone wants to get
  158. ;     various informations about a user (for example his password), but
  159. ;     this may also be normal for a program accessing user records (for
  160. ;     example a User Editor)
  161. ;     ■ Search for : GETALTUSER
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Postprocessing report
  166. ;
  167. ;    0       For/Next
  168. ;    5       While/EndWhile
  169. ;    0       If/Then or If/Then/Else
  170. ;    0       Select Case
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;                 AEGiS Corp - Break the routines, code against the machines!
  174. ;------------------------------------------------------------------------------
  175.